Public Class MultiProfesor

    Public Shared Function ObtenerProfesores() As List(Of Profesor)
        Return Nothing
    End Function

    Public Shared Sub CrearProfesor(ByVal pnombre As String, ByVal pmail As String)

        Dim dt As New capaAccesoBD.CrystalGradesDataSetTableAdapters.QueriesTableAdapter
        dt.sp_RegistrarProfesor(pnombre, pmail)


        Dim ds As New capaAccesoBD.CrystalGradesDataSet
        ds.AcceptChanges()

    End Sub

    Public Shared Sub EliminarProfesor(ByVal pid As Integer)

        Dim dt As New capaAccesoBD.CrystalGradesDataSetTableAdapters.QueriesTableAdapter
        dt.sp_EliminarProfesor(pid)

        Dim ds As New capaAccesoBD.CrystalGradesDataSet
        ds.AcceptChanges()

    End Sub

    Public Shared Sub ModificarProfesor(ByVal pid As Integer, ByVal pnombre As String, ByVal pmail As String)

        Dim dt As New capaAccesoBD.CrystalGradesDataSetTableAdapters.QueriesTableAdapter
        'MsgBox(pid)
        'MsgBox(pnombre)
        'MsgBox(pmail)
        dt.sp_ModificarProfesor(pid, pnombre, pmail)


        Dim ds As New capaAccesoBD.CrystalGradesDataSet
        ds.AcceptChanges()


    End Sub
    Public Shared Function LevantarProfesores() As DataTable

        Dim listaProfesores As New capaAccesoBD.CrystalGradesDataSetTableAdapters.sp_LevantarProfesoresTableAdapter
        Dim dt As New capaAccesoBD.CrystalGradesDataSet.sp_LevantarProfesoresDataTable
        listaProfesores.Fill(dt)

        Return dt
    End Function

    Public Shared Function LevantarProfesoresPorGrupo(ByVal idGrupo As Integer) As List(Of Profesor)
        Dim taProfesores As New capaAccesoBD.CrystalGradesDataSetTableAdapters.sp_LevantarProfesoresPorGrupoTableAdapter
        Dim dataSetProfesores As New capaAccesoBD.CrystalGradesDataSet.sp_LevantarProfesoresPorGrupoDataTable

        taProfesores.Fill(dataSetProfesores, idGrupo)

        Dim listaProfesores As New List(Of Profesor)

        For Each row As capaAccesoBD.CrystalGradesDataSet.sp_LevantarProfesoresPorGrupoRow In dataSetProfesores.Rows
            Dim profesor As New Profesor()
            profesor.Nombre = row.nombre
            profesor.Mail = row.correoElectronico
            listaProfesores.Add(profesor)
        Next

        Return listaProfesores

    End Function


End Class
